home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 February / Macworld (2000-02).dmg / Updaters / WhiteCap 3.2.2.sea / WhiteCap 3.2.2 / (into Visual Plug-ins) / WhiteCap Configs / Blazing Comet < prev    next >
Text File  |  1999-10-13  |  1KB  |  79 lines
  1. /* By:      Paul Butterworth (aka Otis)
  2.    Student: University of Auckland Engineering School
  3.             New Zealand
  4.             Electrical Engineering
  5.    Email:   p-j@bigfoot.com (preferred)
  6.             pb@engineer.com
  7.             pbut015@student.auckland.ac.nz
  8.  
  9. Blazing Comet    16/9/99
  10. */
  11.  
  12. Resn=10,
  13.  
  14. Durn="0.8",
  15.  
  16. B0="-30 * ( sin(.3 * t) )^2",
  17. B1="60 * ( cos(.3 * t) )",
  18. B2="20 * ( sin(.11 * t) )",
  19.  
  20.  
  21. CamX="B0 + 35",
  22. CamY="B1",
  23. CamZ="-14 + B2",
  24.  
  25. CmLX="35",
  26. CmLY="0",
  27. CmLZ="0",
  28.  
  29. CUpX="0",
  30. CUpY="0",
  31. CUpZ="1",
  32.  
  33. B3=".1 * t",
  34.  
  35. C0="(1 - dt) ^ 2",  // fades colours to black
  36. C1="sin(dt * PI * .8 + .1)",   // controls YZ expansion
  37. C2="(abs( mag( 0.05 ) )+ abs( mag( 0.1 ) ) + abs( mag( 0.5 ) ))/3 + .2",   
  38. /* controls X departure of tail - Any function that takes average amplitude of samples? */
  39. C3="20*C1*C2",
  40. C4="15 * sqrt( dt )",
  41.  
  42. D0="abs( mag( s ) )", // sound amplitude for colour
  43. D1="C3 + C4*D0",   // diminishing amplitude for sparks
  44. D2="s * 6.283185307 + B3",   // makes circle
  45.  
  46.  
  47. X="dt * 120 * C2",
  48. Y="D1*cos(D2)",   // position + amplitude deviation
  49. Z="D1*sin(D2)",   // position + amplitude deviation
  50.  
  51.  
  52. R="C0",
  53. G="C0 * D0 * 2",
  54. B="2 * C0 * pos(D0 - .7) + .1 * dt",
  55.  
  56.  
  57.  
  58. ConL=1,
  59.  
  60. ConB=0,
  61.  
  62. LWdt="2",
  63.  
  64. Fall=".05",
  65.  
  66. Blrs=0,
  67. BlrB=1,
  68.  
  69. widt=300,
  70. heig=300,
  71.  
  72. Scal="500",
  73.  
  74. ScSz=1,
  75.  
  76. Pers="75",
  77.  
  78. Vers=30
  79.